#include "protheus.ch"
/*/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! A650OPI                                               !
+------------------+---------------------------------------------------------+
!Descricao         !PONTO DE ENTRADA PARA DEFINIR SE DEVE GERAR
!				   !OP INTERMEDIARIA PARA OS PIs  
!                  !
+------------------+---------------------------------------------------------+
!Autor             ! PETERSON
+------------------+---------------------------------------------------------+
!Data de Criacao   !21/11/2013
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/
user Function A650OPI(nLin)
Local lRet := .t.
LOCAL nPosCod    :=aScan(aHeader,{|x| AllTrim(x[2])=="G1_COMP"})

IF posicione("SB1",1,xFilial("SB1")+aCols[PARAMIXB,nPosCod],"B1_TIPO") == "PI" 
	alert('VERIFICANDO SE DEVE GERAR PI NA FILIAL')
endif
	
return(lRet)